Imports System.Runtime.InteropServices

Module Helpers

    Public Sub ReleaseComObject(ByVal o As Object)
        If Marshal.IsComObject(o) Then
            While Marshal.ReleaseComObject(o) > 0

            End While
        End If
    End Sub

End Module
